program insertSoftboardDBEngine;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Interfaces, // this includes the LCL widgetset
  Classes, Forms, blcksock, synaser, synafpc, synsock, synautil, synacode,
  synaip, insertPollSoftboardDBEngine, insertSoftboardDBEngineMain,
  insertInstanceServerSoftboardDBEngine, SoftboardDB, TBLSoftboardLoop,
  TBLSoftboardProtocol, XDSoftboardLoop, XDSoftboardProtocol, insertP1,
  insertpoll, insertdata, insertparam, insertinstance, insertinstanceserver,
  insertlog, IIOThread, IOPort, iconst, IOPortRS232Synaser, IOPortSocket,
  AuditLog, ParamUtil, synchobj, eoclases, INI_Property, INI_Section, XDIPrice,
  TBLIPrice, XDIProductBase, TBLIProductBase, XDataset, XDForecourtSite,
  TBLForecourtSite, XDForecourt, TBLForecourt, XDForecourtProfile,
  TBLForecourtProfile, XDForecourtTank, TBLForecourtTank, TBLForecourtPump,
  XDForecourtPump, TBLForecourtPumpNozzle;

{$R *.res}

var
  tmpTS: TStringList;
  ctr: Integer;

  tmpS, tmpP: String;
begin
  tmpS := GetParamP1('-a" asd\"123\" -b "zxc, 111"', tmpP);

  tmpTS := TStringList.Create;
  try
    for ctr := 1 to ParamCount do begin
      tmpTS.Add(ParamStr(ctr));
    end;

    insertSoftboardDBEngineMain.getInstance(tmpTS);
  finally
    tmpTS.Free;
  end;
end.

